gusucode.com > 耐品图片管理系统 标准版A > 耐品图片管理系统 标准版A/Inc/clsSetting.asp

    <!--#Include File="Conn.asp"-->
<%
'===============================================================
' 著作权号：中国国家版权局著作权登记号2004SR07385
' 版权所有：深圳市耐品科技开发有限公司 www.naipin.com
' 联系电话：0755-26611119　81234844　81234845
' 联系手机：13316911914
' 联系邮箱：naipin@naipin.com
'===============================================================

' =========Site Parameters Configure===========
' FileName: clsSettings.asp
' DateTime: 2006-05-18
' Copyright (C) 2006-2007 www.naipin.com
' Script Written By Lyout
'==============================================

Class Lyout_Setting
	' Site Information
	Public SiteNumber
	Public SiteName
	Public SiteUrl
	Public SiteStyle
	Public SiteTitle
	Public SiteDesc
	Public SiteKeys
	Public SiteLang
	Public SiteJpeg
	
	' Contact Information
	Public UserUnit
	Public UserName
	Public UserEmail
	Public UserPhone
	Public UserAdd
	Public UserOicq
	Public UserCard
	
	' Other Information
	Public WaterMark
	Public Settings
	Public ImagePath
	Public ThemeTitle
	
	' Current Information
	Public ScriptUrl
	Public SystemUrl
	Public CacheName
	
	' Upload File Extension
	Public UploadExt
	
	' Soft Information
	Public SoftInfo
	
	Public Sub Class_Initialize()
		Dim Rs,SRN
		SRN = LCase(Trim(Request.ServerVariables("URL")))
		SystemUrl = LCase(Request.ServerVariables("HTTP_HOST"))&Left(SRN,InstrRev(SRN,"/"))
		CacheName = Replace(Replace(Replace(SystemUrl,"/",""),"-",""),":","")
		SystemUrl = "http://"&SystemUrl
		ScriptUrl = Mid(SRN,InstrRev(SRN,"/")+1)
		
		If Not IsDate(GetCache("LastTime")) Then
			Set Rs = Server.CreateObject("adodb.Recordset")
			Rs.Open "Select * From Nt_Config Where SetupID=1",Conn,1,1
			
			Application.Lock()
			
			SetCache "LastTime",Now()
			
			SetCache "SiteNumber",	Rs("SiteNumber")
			SetCache "SiteName",	Rs("SiteName")
			SetCache "SiteUrl",		Rs("SiteUrl")
			SetCache "SiteStyle",	Rs("SiteStyle")
			SetCache "SiteTitle",	Rs("SiteTitle")
			SetCache "SiteDesc",	Rs("SiteDesc")
			SetCache "SiteKeys",	Rs("SiteKeys")
			SetCache "SiteLang",	Rs("SiteLang")
			SetCache "SiteJpeg",	Rs("SiteJpeg")
			
			SetCache "UserUnit",	Rs("UserUnit")
			SetCache "UserName",	Rs("UserName")
			SetCache "UserEmail",	Split(Rs("UserEmail")&"",",")
			SetCache "UserPhone",	Split(Rs("UserPhone")&"",",")
			SetCache "UserAdd",		Split(Rs("UserAdd")&"",",")
			SetCache "UserOicq",	Split(Rs("UserOicq")&"",",")
			SetCache "UserCard",	Rs("UserCard")
			
			SetCache "WaterMark",	Split(Rs("WaterMark")&"",",")
			SetCache "Settings",	Split(Rs("Settings")&"",",")
			SetCache "ImagePath",	Split(Replace(Rs("ImagePath")&"",",","/,")&"/",",")
			SetCache "ThemeTitle",	Rs("ThemeTitle")
			SetCache "UploadExt",	Rs("UploadExt")
			
			SetCache "SoftInfo",	Split(Rs("SoftInfo")&"",",")
			
			Application.UnLock()

			Rs.Close
			Set Rs = Nothing
		End If
		
		SiteNumber	= GetCache("SiteNumber")
		SiteName	= GetCache("SiteName")
		SiteUrl		= GetCache("SiteUrl")
		SiteStyle	= GetCache("SiteStyle")
		SiteTitle	= GetCache("SiteTitle")
		SiteDesc	= GetCache("SiteDesc")
		SiteKeys	= GetCache("SiteKeys")
		SiteLang	= GetCache("SiteLang")
		SiteJpeg	= GetCache("SiteJpeg")
		
		UserUnit	= GetCache("UserUnit")
		UserName	= GetCache("UserName")
		UserEmail	= GetCache("UserEmail")
		UserPhone	= GetCache("UserPhone")
		UserAdd		= GetCache("UserAdd")
		UserOicq	= GetCache("UserOicq")
		UserCard	= GetCache("UserCard")
		
		WaterMark	= GetCache("WaterMark")
		Settings	= GetCache("Settings")		
		ImagePath	= GetCache("ImagePath")
		ThemeTitle	= GetCache("ThemeTitle")
		UploadExt	= GetCache("UploadExt")
		
		SoftInfo	= GetCache("SoftInfo")
	End Sub
	
	Public Sub SetCache(strKey,strValue)
		Application(CacheName&"_"&strKey) = strValue
	End Sub
	
	Public Function GetCache(strKey)
		GetCache = Application(CacheName&"_"&strKey)
	End Function
End Class

Dim Purchase
Set Purchase = Nothing

Dim Config
Set Config = New Lyout_Setting
%>